home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / Reference / DevCon / Washington_1988 / DevCon88.1 / AmigaTechniques / font2asm.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-27  |  12.7 KB  |  430 lines
  1. /****** Font2Asm *****************************************************
  2. *
  3. *   NAME
  4. *       Font2Asm - create an assembly file from a font image
  5. *
  6. *   A hack, nothing more
  7. *
  8. *  Copyright (c) 1988 Commodore-Amiga, Inc.
  9. * 
  10. *  Executables based on this information may be used in software
  11. *  for Commodore Amiga computers.  All other rights reserved.
  12. * 
  13. *  This information is provided "as is"; no warranties are made.
  14. *  All use is at your own risk, and no liability or responsibility is assumed.
  15. *
  16. *********************************************************************/
  17. #include        "exec/types.h"
  18. #include        "exec/nodes.h"
  19. #include        "exec/lists.h"
  20. #include        "exec/memory.h"
  21. #include        "exec/ports.h"
  22. #include    "graphics/gfxbase.h"
  23. #include    "graphics/text.h"
  24. #include    "graphics/view.h"
  25. #include        "libraries/dos.h"
  26. #include    "libraries/diskfont.h"
  27.  
  28. #include    "stdio.h"
  29.  
  30. #ifdef    MANX
  31. #include    "functions.h"
  32. #endif
  33.  
  34. #ifndef    ColorTextFont
  35. #define    FSB_COLORFONT    6    /* this uses ColorTextFont structure */
  36. #define    FSF_COLORFONT    0x40
  37.  
  38. /******    ColorTextFont node ******************************************/
  39. /*-----    ctf_Flags --------------------------------------------------*/
  40. #define    CT_COLORMASK    0x000F    /* mask to get to following color styles */
  41. #define    CT_COLORFONT    0x0001    /* color map contains designer's colors */
  42. #define    CT_GREYFONT    0x0002    /* color map describes even-stepped */
  43.                 /* brightnesses from low to high */
  44. #define    CTB_MAPCOLOR    0    /* map ctf_FgColor to the rp_FgPen if it's */
  45. #define    CTF_MAPCOLOR    0x0001    /* is a valid color within ctf_Low..ctf_High */
  46.  
  47. /*-----    ColorTextFont ----------------------------------------------*/
  48. struct ColorTextFont {
  49.     struct TextFont ctf_TF;
  50.     UWORD    ctf_Flags;    /* extended flags */
  51.     UBYTE    ctf_Depth;    /* number of bit planes */
  52.     UBYTE    ctf_FgColor;    /* color that is remapped to FgPen */
  53.     UBYTE    ctf_Low;    /* lowest color represented here */
  54.     UBYTE    ctf_High;    /* highest color represented here */
  55.     UBYTE    ctf_PlanePick;    /* PlanePick ala Images */
  56.     UBYTE    ctf_PlaneOnOff;    /* PlaneOnOff ala Images */
  57.     APTR    ctf_ColorMap;    /* struct ColorMap * for font */
  58.     APTR    ctf_CharData[8]; /*pointers to bit planes ala tf_CharData */
  59. };
  60. #endif
  61.  
  62. struct ColorTextFont *FindName();
  63. struct GfxBase *OpenLibrary();
  64.  
  65. FILE *file = 0;
  66.  
  67. int GetNum(b)
  68. char *b;
  69. {
  70.     int result, base;
  71.  
  72.     result = 0;
  73.     base = 10;
  74.     while (*b) {
  75.     result *= base;
  76.     if ((*b >= '0') && (*b <= '9')) result += *b - '0';
  77.     else {
  78.         if (((*b >= 'a') && (*b <= 'f')) ||
  79.             ((*b >= 'A') && (*b <= 'F'))) {
  80.         if (base != 16) break;
  81.         result += (*b & 0x1f) + 9;
  82.         }
  83.         else if ((*b != 'x') && (*b != '$')) base = 16;
  84.         else break;
  85.     }
  86.     b++;
  87.     }
  88.     if (*b) {
  89.     printf("ERROR: ill formed number\n");
  90.     return(-1);
  91.     }
  92.     else return(result);
  93. }
  94.  
  95.  
  96. dataDump(data, height, width)
  97. UWORD *data, height, width;
  98. {
  99.     UWORD col;
  100.  
  101.     for (; height > 0; height--) {
  102.     col = 0;
  103.     do {
  104.         if ((col & 7) == 0)
  105.         fprintf(file, "\n\t    dc.w    ");
  106.         else fprintf(file, ",");
  107.         fprintf(file, "$%04lx", *data++);
  108.         col++;
  109.     }
  110.         while (col < width);
  111.     fprintf(file, "\n");
  112.     }
  113. }
  114.  
  115.  
  116. main(argc, argv)
  117. int argc;
  118. char *argv[];
  119. {
  120.     struct GfxBase *GfxBase;
  121.     struct ColorTextFont *ctf, *ctf2;
  122.     int i, j, k;
  123.     ULONG *longptr;
  124.     WORD *wordptr;
  125.  
  126.     GfxBase = (struct GfxBase *) OpenLibrary("graphics.library", 0L);
  127.     if (GfxBase == 0) {
  128.     printf("ERROR: Cannot open \"graphics.library\"\n");
  129.     exit(100);
  130.     }
  131.     if (argc >= 3) {
  132.     file = fopen(argv[1], "w");
  133.     if (file == 0) {
  134.         printf("ERROR: open failed for font file\n");
  135.         argc = 0;
  136.     }
  137.     }
  138.     if (argc >= 3) {
  139.       /* see if more than one with this name */
  140.       ctf = FindName(&GfxBase->TextFonts, argv[2]);
  141.       if (ctf) {
  142.         if (FindName(ctf, argv[2])) {
  143.           /* yes: get the one with this size */
  144.           if (argc >= 4) {
  145.             i = GetNum(argv[3]);
  146.             if (i >= 0) {
  147.               while ((ctf) && (ctf->ctf_TF.tf_YSize != i))
  148.                 ctf = FindName(ctf, argv[2]);
  149.               if (ctf) {
  150.                 /* check for more than one */
  151.                 ctf2 = FindName(ctf, argv[2]);
  152.                 while ((ctf2) && (ctf2->ctf_TF.tf_YSize != i))
  153.                   ctf2 = FindName(ctf2, argv[2]);
  154.                 if (ctf2) {
  155.                   /* yes: get the one with this style */
  156.           if (argc >= 5) {
  157.             j = GetNum(argv[4]);
  158.             if (j >= 0) {
  159.               ctf = FindName(&GfxBase->TextFonts, argv[2]);
  160.               while ((ctf) && ((ctf->ctf_TF.tf_YSize != i) ||
  161.               (ctf->ctf_TF.tf_Style != j)))
  162.             ctf = FindName(ctf, argv[2]);
  163.               if (ctf) {
  164.             /* check for more than one */
  165.             ctf2 = FindName(ctf, argv[2]);
  166.             while ((ctf2) && ((ctf2->ctf_TF.tf_YSize != i) ||
  167.                 (ctf2->ctf_TF.tf_Style != j)))
  168.               ctf2 = FindName(ctf2, argv[2]);
  169.             if (ctf2) {
  170.               /* yes: get the one with this flags */
  171.               if (argc >= 6) {
  172.                 k = GetNum(argv[5]);
  173.                 if (k >= 0) {
  174.                   ctf = FindName(&GfxBase->TextFonts, argv[2]);
  175.                   while ((ctf) && ((ctf->ctf_TF.tf_YSize != i) ||
  176.                   (ctf->ctf_TF.tf_Style != j) ||
  177.                   (ctf->ctf_TF.tf_Flags != k)))
  178.                 ctf = FindName(ctf, argv[2]);
  179.                   if (ctf) {
  180.                 /* check for more than one */
  181.                 ctf2 = FindName(ctf, argv[2]);
  182.                 while ((ctf2) && ((ctf2->ctf_TF.tf_YSize != i)
  183.                     || (ctf->ctf_TF.tf_Style != j) ||
  184.                     (ctf->ctf_TF.tf_Flags != k)))
  185.                   ctf2 = FindName(ctf2, argv[2]);
  186.                 if (ctf2) {
  187.                   printf("WARNING: There exists more than one font matching the specification.\n");
  188.                   printf("         The first one found is being used.\n");
  189.                                 }
  190.                   }
  191.                   else /* ctf */ {
  192.                 printf("ERROR: No font with the specified flags\n");
  193.                 argc = 0;
  194.                   }
  195.                 }
  196.                 else /* k */ argc = 0;
  197.               }
  198.               else /* argc */ {
  199.                 printf("ERROR: More than one font with the specified name, size, and style\n");
  200.                 argc = 0;
  201.               }
  202.             }
  203.               }
  204.               else /* ctf */ {
  205.                 printf("ERROR: No font with the specified flags\n");
  206.             argc = 0;
  207.               }
  208.             }
  209.             else /* j */ argc = 0;
  210.           }
  211.           else /* argc */ {
  212.             printf("ERROR: More than one font with the specified name, and size\n");
  213.             argc = 0;
  214.           }
  215.         }
  216.           }
  217.           else /* ctf */ {
  218.         printf("ERROR: No font with the specified size\n");
  219.         argc = 0;
  220.           }
  221.             }
  222.             else /* i */ argc = 0;
  223.           }
  224.           else /* argc */ {
  225.             printf("ERROR: More than one font with the specified name\n");
  226.             argc = 0;
  227.           }
  228.         }
  229.       }
  230.       else /* ctf */ {
  231.         printf("ERROR: No font with the specified name\n");
  232.         argc = 0;
  233.       }
  234.       CloseLibrary(GfxBase);
  235.     }
  236.     if (argc < 3) {
  237.     printf(
  238.       "USAGE: Font2Asm <file> <font-name> [<size>] [<style>] [<flags>]\n");
  239.     if (file) fclose(file);
  240.     exit(5);
  241.     }
  242.     ctf->ctf_TF.tf_Accessors++;
  243.     printf("\"%s\" Y %ld S $%02lx F $%02lx\n",
  244.         ctf->ctf_TF.tf_Message.mn_Node.ln_Name, ctf->ctf_TF.tf_YSize,
  245.         ctf->ctf_TF.tf_Style, ctf->ctf_TF.tf_Flags);
  246.  
  247.     /* write out the header */
  248.     fprintf(file, ";------ Included Files ------\n");
  249.     fprintf(file, "\n");
  250.     fprintf(file, "    INCLUDE        \"exec/types.i\"\n");
  251.     fprintf(file, "    INCLUDE        \"exec/nodes.i\"\n");
  252.     fprintf(file, "    INCLUDE        \"libraries/diskfont.i\"\n");
  253.     fprintf(file, "\n");
  254.     fprintf(file, "        moveq    #100,D0\n");
  255.     fprintf(file, "        rts\n");
  256.     fprintf(file, "\n");
  257.     fprintf(file, "        dc.l    0        ; ln_Succ\n");
  258.     fprintf(file, "        dc.l    0        ; ln_Pred\n");
  259.     fprintf(file, "        dc.b    NT_FONT        ; ln_Type\n");
  260.     fprintf(file, "        dc.b    0        ; ln_Pri\n");
  261.     fprintf(file, "        dc.l    fontName    ; ln_Name\n");
  262.     fprintf(file, "        dc.w    DFH_ID        ; FileID\n");
  263.     fprintf(file, "        dc.w    0        ; Revision\n");
  264.     fprintf(file, "        dc.l    0        ; Segment\n");
  265.     fprintf(file, "fontName:\n");
  266.     fprintf(file, "        dcb.b    MAXFONTNAME,0    ; Name\n");
  267.     fprintf(file, "\n");
  268.     fprintf(file, "font:\n");
  269.     fprintf(file, "        dc.l    0        ; ln_Succ\n");
  270.     fprintf(file, "        dc.l    0        ; ln_Pred\n");
  271.     fprintf(file, "        dc.b    NT_FONT        ; ln_Type\n");
  272.     fprintf(file, "        dc.b    0        ; ln_Pri\n");
  273.     fprintf(file, "        dc.l    fontName    ; ln_Name\n");
  274.     fprintf(file, "        dc.l    0        ; mn_ReplyPort\n");
  275.     fprintf(file, "        dc.w    fontEnd-font    ; mn_Length\n");
  276.     fprintf(file, "        dc.w    %ld        ; tf_YSize\n",
  277.         ctf->ctf_TF.tf_YSize);
  278.     fprintf(file, "        dc.b    $%02lx        ; tf_Style\n",
  279.         ctf->ctf_TF.tf_Style);
  280.     fprintf(file, "        dc.b    $%02lx        ; tf_Flags\n",
  281.         ctf->ctf_TF.tf_Flags);
  282.     fprintf(file, "        dc.w    %ld        ; tf_XSize\n",
  283.         ctf->ctf_TF.tf_XSize);
  284.     fprintf(file, "        dc.w    %ld        ; tf_Baseline\n",
  285.         ctf->ctf_TF.tf_Baseline);
  286.     fprintf(file, "        dc.w    %ld        ; tf_BoldSmear\n",
  287.         ctf->ctf_TF.tf_BoldSmear);
  288.     fprintf(file, "        dc.w    0        ; tf_Accessors\n");
  289.     fprintf(file, "        dc.b    %ld        ; tf_LoChar\n",
  290.         ctf->ctf_TF.tf_LoChar);
  291.     fprintf(file, "        dc.b    %ld        ; tf_HiChar\n",
  292.         ctf->ctf_TF.tf_HiChar);
  293.     fprintf(file, "        dc.l    fontData    ; tf_CharData\n");
  294.     fprintf(file, "        dc.w    %ld        ; tf_Modulo\n",
  295.         ctf->ctf_TF.tf_Modulo);
  296.     fprintf(file, "        dc.l    fontLoc        ; tf_CharLoc\n");
  297.     if (ctf->ctf_TF.tf_CharSpace)
  298.     fprintf(file, "        dc.l    fontSpace    ; tf_CharSpace\n");
  299.     else
  300.     fprintf(file, "        dc.l    0        ; tf_CharSpace\n");
  301.     if (ctf->ctf_TF.tf_CharKern)
  302.     fprintf(file, "        dc.l    fontKern    ; tf_CharKern\n");
  303.     else
  304.     fprintf(file, "        dc.l    0        ; tf_CharKern\n");
  305.     fprintf(file, "\n");
  306.     if (ctf->ctf_TF.tf_Style & FSF_COLORFONT) {
  307.     fprintf(file, "        dc.w    $%04lx        ; ctf_Flags\n",
  308.         ctf->ctf_Flags);
  309.     fprintf(file, "        dc.b    %ld        ; ctf_Depth\n",
  310.         ctf->ctf_Depth);
  311.     fprintf(file, "        dc.b    %ld        ; ctf_FgColor\n",
  312.         ctf->ctf_FgColor);
  313.     fprintf(file, "        dc.b    %ld        ; ctf_Low\n",
  314.         ctf->ctf_Low);
  315.     fprintf(file, "        dc.b    %ld        ; ctf_High\n",
  316.         ctf->ctf_High);
  317.     fprintf(file, "        dc.b    $%02lx        ; ctf_PlanePick\n",
  318.         ctf->ctf_PlanePick);
  319.     fprintf(file, "        dc.b    $%02lx        ; ctf_PlaneOnOff\n",
  320.         ctf->ctf_PlaneOnOff);
  321.     if (ctf->ctf_ColorMap &&
  322.         (((struct ColorMap *) ctf->ctf_ColorMap)->Type == 0))
  323.         fprintf(file, "\t    dc.l    colorMap    ; ctf_ColorMap\n");
  324.     else
  325.         fprintf(file, "\t    dc.l    0        ; ctf_ColorMap\n");
  326.     for (i = 0; i < ctf->ctf_Depth; i++)
  327.         fprintf(file, "\t    dc.l    colorData%ld    ; ctf_CharData[%ld]\n",
  328.             i, i);
  329.     for (; i < 8; i++)
  330.         fprintf(file, "\t    dc.l    0        ; ctf_CharData[%ld]\n",
  331.             i);
  332.     if (ctf->ctf_ColorMap &&
  333.         (((struct ColorMap *) ctf->ctf_ColorMap)->Type == 0))
  334.         fprintf(file, "\n");
  335.         fprintf(file, "colorMap:\n");
  336.         fprintf(file, "\t    dc.b    $%02lx        ; Flags\n",
  337.             ((struct ColorMap *) ctf->ctf_ColorMap)->Flags);
  338.         fprintf(file, "\t    dc.b    0        ; Type\n");
  339.         fprintf(file, "\t    dc.b    %ld        ; Count\n",
  340.             ((struct ColorMap *) ctf->ctf_ColorMap)->Count);
  341.         fprintf(file, "\t    dc.l    colorTable    ; ColorTable\n");
  342.         fprintf(file, "\n");
  343.         fprintf(file, "colorTable:\n");
  344.         for (i = 0; i < ((struct ColorMap *) ctf->ctf_ColorMap)->Count; i++)
  345.         fprintf(file, "\t\tdc.w    $%04lx        ; (color %ld)\n",
  346.             ((UWORD *) ((struct ColorMap *) ctf->ctf_ColorMap)
  347.             ->ColorTable)[i], i);
  348.     }
  349.     fprintf(file, "\n");
  350.     fprintf(file, "fontLoc:");
  351.     i = ctf->ctf_TF.tf_LoChar-1;
  352.     longptr = (ULONG *) ctf->ctf_TF.tf_CharLoc;
  353.     j = 0;
  354.     do {
  355.     if (j == 0)
  356.         fprintf(file, "\n\t    dc.l    ");
  357.     else fprintf(file, ",");
  358.     fprintf(file, "$%08lx", *longptr++);
  359.     j++;
  360.     j &= 3;
  361.     i++;
  362.     }
  363.     while (i <= ctf->ctf_TF.tf_HiChar);
  364.     fprintf(file, "\n");
  365.  
  366.     if (ctf->ctf_TF.tf_CharSpace) {
  367.     fprintf(file, "fontSpace:");
  368.     i = ctf->ctf_TF.tf_LoChar-1;
  369.     wordptr = (WORD *) ctf->ctf_TF.tf_CharSpace;
  370.     j = 0;
  371.     do {
  372.         if (j == 0)
  373.         fprintf(file, "\n\t    dc.w    ");
  374.         else fprintf(file, ",");
  375.         fprintf(file, "%04ld", *wordptr++);
  376.         j++;
  377.         j &= 7;
  378.         i++;
  379.     }
  380.         while (i <= ctf->ctf_TF.tf_HiChar);
  381.     fprintf(file, "\n");
  382.     }
  383.  
  384.     if (ctf->ctf_TF.tf_CharKern) {
  385.     fprintf(file, "fontKern:");
  386.     i = ctf->ctf_TF.tf_LoChar-1;
  387.     wordptr = (WORD *) ctf->ctf_TF.tf_CharKern;
  388.     j = 0;
  389.     do {
  390.         if (j == 0)
  391.         fprintf(file, "\n\t    dc.w    ");
  392.         else fprintf(file, ",");
  393.         fprintf(file, "%04ld", *wordptr++);
  394.         j++;
  395.         j &= 7;
  396.         i++;
  397.     }
  398.         while (i <= ctf->ctf_TF.tf_HiChar);
  399.     fprintf(file, "\n");
  400.     }
  401.  
  402.     if (ctf->ctf_TF.tf_Style & FSF_COLORFONT) {
  403.     for (i = 0; i < ctf->ctf_Depth; i++) {
  404.         for (j = 0; j < i; j++)
  405.         if (ctf->ctf_CharData[i] == ctf->ctf_CharData[j]) break;
  406.         if (i == j) {
  407.         if (ctf->ctf_TF.tf_CharData == ctf->ctf_CharData[i])
  408.             fprintf(file, "fontData:\n");
  409.         fprintf(file, "colorData%ld:", i);
  410.         for (j = i; j < ctf->ctf_Depth; j++)
  411.             if (ctf->ctf_CharData[i] == ctf->ctf_CharData[j])
  412.             fprintf(file, "\ncolorData%ld:", j);
  413.         dataDump(ctf->ctf_CharData[i],
  414.             ctf->ctf_TF.tf_YSize, ctf->ctf_TF.tf_Modulo/2);
  415.         }
  416.     }
  417.     }
  418.     else {
  419.     fprintf(file, "fontData:");
  420.     dataDump(ctf->ctf_TF.tf_CharData,
  421.         ctf->ctf_TF.tf_YSize, ctf->ctf_TF.tf_Modulo/2);
  422.     }
  423.     fprintf(file, "fontEnd:\n");
  424.     fprintf(file, "\n");
  425.     fprintf(file, "    END\n");
  426.  
  427.     ctf->ctf_TF.tf_Accessors--;
  428.     fclose(file);
  429. }
  430.